/* Fighter Delay */
/* Made by Dell Bond */
/* Version 1.0 */

call zoctimeout 14400

planet=ZocAsk("Which planet do you want to take the fighters from?", "0")

do forever
call zocsend "l"
call zocsend planet
call zocsend "^m"

call take

call zocsend "q"
call zocsend "f"
call zocwait "<Drop/Take Fighters"
call zocwait "You have "
fighter=GetFig(0,0)

call zocsend fighter
call zocsend "^mcpd"

end

exit

take:
call zocsend "mn"
result=zocwaitmux("There are currently 1", "There are currently 2", "There are currently 3", "There are currently 4", "There are currently 5", "There are currently 6", "There are currently 7", "There are currently 8", "There are currently 9", "currently 0 Fighters on thi")
select
	when result=0 then t=1
	when result=1 then t=1
	when result=2 then t=1
	when result=3 then t=1
	when result=4 then t=1
	when result=5 then t=1
	when result=6 then t=1
	when result=7 then t=1
	when result=8 then t=1
	when result=9 then t=2
end

if t=2 then exit

if t=1 then
call zocsend "t^M"
RETURN(0)

GetFig:
holdfinal=""
call zocwait " "
holds=zoclastline()
DO addchar=1 to length(holds)
        holdsit=substr(holds,addchar,1)
        if holdsit<>"]" then DO
          if holdsit<>"," then holdfinal=holdfinal||holdsit
        end
END
RETURN holdfinal